#lang rosetta-racket


(provide test-layer-hello
         test-layer-hello-goodbye
         test-layer-hello-goodbye-list)


(define (test-layer-hello)
  (lift
   (thunk (displayln "Changing to layer 'hello'"))
   (layer "hello" (sphere 1))))

(define (test-layer-hello-goodbye)
  (lift
   (thunk (displayln "Changing to layers 'hello' and 'goodbye'"))
   (begin
     (layer "hello" (sphere 1))
     (layer "goodbye" (box 1 2 3)))))

(define (test-layer-hello-goodbye-list)
  (lift
   (thunk (displayln "Changing to layers 'hello' and 'goodbye' using 'list'"))
   (sequence
    (layer "hello" (sphere 1))
    (layer "goodbye" (box 1 2 3)))))